home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / obero / OberonAModules.lha / MemManager.Mod < prev    next >
Text File  |  1999-02-26  |  1KB  |  82 lines
  1. (*MemManager.library Module Translated from C Includes
  2.   By Morten Bjergstrøm
  3.   EMail: mbjergstroem@hotmail.com
  4. *)
  5.  
  6. <*STANDARD-*>
  7. MODULE MemManager;
  8.  
  9. IMPORT
  10.   e:=Exec, Kernel;
  11.  
  12. VAR
  13.   base* : e.LibraryPtr;
  14.  
  15. CONST
  16.   memmanagerMinVersion*=3;
  17.   memmanagerName*="memmanager.library";
  18.  
  19.   disposable*=2;
  20.   paged*=4;
  21.  
  22.  
  23.  
  24. PROCEDURE CreateVMem* [base,-30]
  25.   (memsize   [0] : LONGINT;
  26.    memflags  [1] : LONGINT;
  27.    initpri   [2] : LONGINT;
  28.    vmemflags [3] : LONGINT)
  29.   : e.APTR;
  30.  
  31. PROCEDURE RemoveVMem* [base,-36]
  32.   (obj [9] : e.APTR);
  33.  
  34. PROCEDURE LockVMem* [base,-42]
  35.   (obj [9] : e.APTR)
  36.   : e.APTR;
  37.  
  38. PROCEDURE UnlockVMem* [base,-48]
  39.   (obj [9] : e.APTR);
  40.  
  41. PROCEDURE ChangeVMemPri* [base,-54]
  42.   (obj    [9] : e.APTR;
  43.    mempri [0] : LONGINT);
  44.  
  45. PROCEDURE PurgeVMem* [base,-60]
  46.   (memflags [1] : LONGINT)
  47.   : LONGINT;
  48.  
  49. PROCEDURE ChangeVMemType* [base,-66]
  50.   (obj       [9] : e.APTR;
  51.    vmemflags [0] : LONGINT);
  52.  
  53. PROCEDURE DefineVMemHierachy* [base,-72]
  54.   (hierachy [9] : e.APTR);
  55.  
  56. PROCEDURE ClearVMemHierachy* [base,-78]
  57.   (hierachy [9] : e.APTR);
  58.  
  59. PROCEDURE Publish* [base,-84]
  60.   (obj [9] : e.APTR);
  61.  
  62. PROCEDURE Protect* [base,-90]
  63.   (obj [9] : e.APTR);
  64.  
  65.  
  66.  
  67.  
  68. PROCEDURE* [0] CloseLib (VAR rc : LONGINT);
  69.  
  70. BEGIN (* CloseLib *)
  71.   IF base # NIL THEN e.CloseLibrary (base) END
  72. END CloseLib;
  73.  
  74.  
  75. BEGIN
  76.  
  77.   base := e.OpenLibrary (memmanagerName, memmanagerMinVersion);
  78.  
  79.   IF base # NIL THEN Kernel.SetCleanup (CloseLib) END;
  80.  
  81. END MemManager.
  82.